103

Create Your Own Interface Diagram

103

Here is the code:

STEP 1—​initialization

Public Pair(500) As String

Public OldShapeBegin As Boolean

Public OldShapeEnd As Boolean

Public LinesInLabel(500) As Integer

Public LabelObject(500) As String

Public LabelObjectNumber As Integer

Public rng As Range, MyRct As Shape, WorkRange As Range

Public NumberOfEntities As Integer

Public NumberOfRows As Integer

Public RowsCompletedForCurrentMax As Integer

Public ToggleSwitch As Integer

Public CurrentSheetName As String

Sub Draw()

  Dim i As Integer, j As Integer, n As Integer, m As Integer

  Dim FromRange As Range, ToRange As Range

  LabelObjectNumber =​ 0

  Sheets(“Diagram”).Select

  NumberOfRows =​ CurrentSheet.Cells(Rows.Count, 1).End(xlUp).Row

  Dim Shp As Shape

  Dim arow As Integer, MaxCount As Integer, RowToGraph As Integer, ia As Integer

  For Each Shp In ActiveSheet.Shapes

    Shp.Delete

  Next Shp

  Dim DoneWithRow(500)

  For i =​ 1 To NumberOfRows

    DoneWithRow(i) =​ 0

  Next

  ColumnOffset =​ 1

  RowOffset =​ 0

  NumberOfRectangles =​ 0

  NextLeftShape =​ 1

  NextRightShape =​ 1

  j =​ 0

  k =​ 0

  Sheets(“Entities”).Select

  Cells.Select

  Selection.ClearContents

  Cells(1, 1) =​ “Entity”

  Cells(1, 2) =​ “From Count”

  Cells(1, 3) =​ “To Count”

  Cells(1, 4) =​ “Total Count”